Imports OpenAccess

<MyFieldAccessAspect(), Persistent()> Public Class Child

#Region "Persistent Variables"
    Private colName As String
    Private colParent As Parent
    Private refWorkshops As IList(Of WorkShop) = New List(Of WorkShop)
#End Region

#Region "Public Interface"
    Public Property Name() As String
        Get
            Return colName
        End Get
        Set(ByVal newValue As String)
            colName = newValue
        End Set
    End Property

    Public Property Parent() As Parent
        Get
            Return colParent
        End Get
        Set(ByVal newValue As Parent)
            colParent = newValue
        End Set
    End Property

    Public ReadOnly Property Workshops() As IList(Of WorkShop)
        Get
            Return refWorkshops
        End Get
    End Property
#End Region

End Class
